Thema Datum  Von Nutzer Rating
Antwort
19.11.2008 08:39:46 Jan
NotSolved
Blau Aw:Werte vergleichen: gleich -> Summieren
21.11.2008 14:58:08 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
21.11.2008 14:58:08		 Views:
705		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Werte vergleichen: gleich -> Summieren
Hallo Jan,
hoffentlich habe ich dich richtig verstanden. Hier eine Quick-and-dirty-Lösung:
Sub Tiere_Summieren()
lz = Cells(Rows.Count, 1).End(xlUp).Row
a = 1: d = 2
Do
b = Cells(a, 1)
c = Cells(a, 2)

Do Until Cells(a, 1) <> Cells(d, 1) Or Cells(a, 2) <> Cells(d, 2)
d = d + 1
Loop
s = 0
For i = a To d - 1
s = s + Cells(i, 4)
Next i
For i = a To d - 1
Cells(i, 6) = s
Next i
a = d
d = d + 1
Loop While d <= lz + 1
End Sub

Gruß
Holger




Jan schrieb am 19.11.2008 08:39:46:

Hallo Zusammen,

brauche, wie die meisten hier, Hilfe bei einem Problem, das sich garantiert nur mit Makro lösen lässt:

Die Tabelle sieht wie folgt aus:

Spalte A Spalte B Spalte C Spalte D Spalte E Spalte F
1 Hund 44 50 300 60
2 Hund 44 50 600 50
3 Hund 22 25 250 80
4 Katze 11 35 350 90
5 Maus 33 55 150 70


Nun soll überpüft werden, ob Spalte A/B und C identisch sind.
Ist dies der Fall, soll er die Werte aus Spalte D summieren und in Spalte F eintragen. Da vorher schon eine Sortierung vorgenommen wird, kann der Wert in der unteren Zeile der beiden Identischen in F eingetragen werden. Sprich für die ersten beiden Zeilen käme dann in F2 der Wert 900 hinein.
Findet er keine Übereinstimmung, soll der Wert aus D direkt in F übernommen werden. Sprich für Zeile 4 käme in Spalte F die 350.

Ist sowas per VBA möglich??? Ich meine möglich ist mit VBA ja alles, aber kann mir jemand helfen???

Danke,

Jan

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
19.11.2008 08:39:46 Jan
NotSolved
Blau Aw:Werte vergleichen: gleich -> Summieren
21.11.2008 14:58:08 Holger
NotSolved